program pgm (input, output) ;

	const
		pi = 3.15 ;
		integ = 2;
		test = "test_65 sdfsdfdd" ;
		ch = 'i';
		bool = true ;
		
	var
		test_int,test_int2 : integer ;
		test_real : real ;
		test_bool : boolean ;
		test_char : char ;
		test_string : string;
		

		
	procedure MaProc1 ;
		begin
			test_int := - 5 - ( 7 - 9 ) ;
		end ;
	
	begin
		write ( "tst" ) ;
		write ( test );
		writeln ;
		writeln ( test ) ;
		read ( test_int2 ) ;
		writeln ( test_int2 );
		
		MaProc1 ;
		
		
		
		if test >= 87 then
                	test_int := 5 - ( pi - integ ) ;
                else
                        test_int := false ;
                        
        test_int := 2;
                        
       	while test_int < 99 do 
       		test_int := test_int + 1;

	end.




























